home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / RGASM.RAR / ASMCODE.EXE / CHAPT12 / PTSTALT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-28  |  631 b   |  21 lines
  1. Program PTstAlt ;
  2. Uses Crt, AsmLink ;
  3. Begin
  4. Writeln ; Writeln
  5. ('The demo program showing the link between Turbo Pascal and Assembler' ) ;
  6. Writeln ( 'V.B.Maljugin,  1992,  Voronezh, Russia' ) ;
  7.  
  8. Writeln ; Writeln ('Determening the state of the ALT key on keyboard' ) ;
  9. If TestAlt Then Writeln ('The Alt key is DOWN')
  10.    Else Writeln ('Alt key is UP') ;
  11.  
  12. Writeln ('Press the ALT key and hold it for not less than 5 seconds') ;
  13. Delay (5000) ;
  14.  
  15. If TestAlt Then Writeln ('The Alt key is DOWN')
  16.    Else Writeln ('Alt key is UP') ;
  17.  
  18. Writeln ('Release the ALT key and press ENTER to finish the program');
  19. Readln;
  20. End.
  21.